From b5f28fa5b99a13e4d2238638d5e6526b9b2ee176 Mon Sep 17 00:00:00 2001 From: oliskoli Date: Wed, 28 Sep 2005 23:33:20 +0000 Subject: [PATCH] Minor and major changes --- gpsbabel/win32/gui-2/GPSBabelGUI2.dpr | 9 +- gpsbabel/win32/gui-2/about.dfm | Bin 1899 -> 3169 bytes gpsbabel/win32/gui-2/about.pas | 19 +- gpsbabel/win32/gui-2/filter.dfm | Bin 7227 -> 7202 bytes .../gui-2/locale/de/LC_MESSAGES/default.po | 179 ++++++++++------ .../gui-2/locale/fr/LC_MESSAGES/default.po | 199 +++++++++++------- gpsbabel/win32/gui-2/main.dfm | Bin 22046 -> 22287 bytes gpsbabel/win32/gui-2/main.pas | 10 + gpsbabel/win32/gui-2/template.po | 178 ++++++++++------ gpsbabel/win32/gui-2/utils.pas | 60 +++--- 10 files changed, 400 insertions(+), 254 deletions(-) diff --git a/gpsbabel/win32/gui-2/GPSBabelGUI2.dpr b/gpsbabel/win32/gui-2/GPSBabelGUI2.dpr index 5146fc0ad..faae7da14 100644 --- a/gpsbabel/win32/gui-2/GPSBabelGUI2.dpr +++ b/gpsbabel/win32/gui-2/GPSBabelGUI2.dpr @@ -33,17 +33,10 @@ uses {$R *.RES} -(* -!!! -gpsbabel.exe -w -i gdb -f "C:\TEMP\2005 Pfunds total.gdb" -x duplicate,shortname -o pathaway -F "C:\TEMP\2005 Pfunds total.pdb" -gpsbabel: Unable to allocate -16056 bytes of memory. -!!! -*) - begin AddDomainForResourceString('delphi'); - UseLanguage('en'); // for testing +// UseLanguage('en'); // for testing Application.Initialize; Application.CreateForm(TfrmMain, frmMain); diff --git a/gpsbabel/win32/gui-2/about.dfm b/gpsbabel/win32/gui-2/about.dfm index 745de051e3e018cabf6124d4012bf03d9f6c0541..0d894c9093cb3db94543db6df5c68b99f3e10120 100644 GIT binary patch literal 3169 zcmcgu&ube;6rNq#+LdLyN)CbI%a()^2zAnwQs^Oxx}DL$ktc_b}b?TXb% z6Q>aC7C{c7r?&JD=ph$7^!KzO#~uv+3rY{Y^im3iLJvmU_jY!rUAZQgwj<5%yl;Me z^Jd@7=g*Mx^2Y6aVf}8IT*}>Gnx4B|GD@b?F-p|4YO;U8I7{Z&?d>IxnvAaFI&{70b}Xc>&9~iB z)uYr|0_sq+?#Ol;^!Hk_JXf^tQ@c~7-l|h=s2|KAjgY_`NtcVJLv6k7$n^%UQwe%b zCDYOB)1h15QKs{@Rd+Pqv}OC50_{rlOHRsy0bf#FwMW}T*k=bLh0 z{*e1}T9L!6=fly}vsxY)x?U$cZ8m{`W;Qo)H;A6^GPh(spqaE>XlAx(Raw`gi`PwN z&Rj_mqLm94YnkoKP%hlYC#D|c^I<*MkY)vIK8cb7bW{+v8{ za!Bso`V{-E90u*S`rgT~hg$s(3p z5Z`dVCBzq;R|4$9o+8BOya!{5M|>woURyBWCq$hy#J=YIT2>GvOD>3SIe&~8u=z}g z(*^-HP>&F{e*kknLo8r|7_bpyZyz`UlO`eoo2OzAh%W$>HHiV6rr3w|T?m;VyvcV2 z47V3CK@4ZZJp(3NXk!948|2xk(<3Gb0()2&i~&B0Qott01aWZWQ-MASnIIOhiF|?p zCS((5f*8#BG|mJuVDmV^1VQjkf(c?Pyf^X*+L(Yxf(c^42ECX}o3QsuBv{JUBnF)) zAy~?|>qMkpmdAh|90R#9PK_u|jd46C<8TV1Zo0f$bsdZ}g&2m6t6w47&cJSABpQ&f zL5?D^AB#kQW2sLF{7JtrU+{z?YJ19NIfBUGM!4N)ODKF8R?xfi;Ig!*8wGAK%{n<*R7(Mh+o^0EJz39 zK;GNx#rSEE`b~*M0a0E;E!0jL=%9whV){Ti$xq>ox%iA~W#pvMQs!5RrGiX|7o&xty6IAZ8B3dJ=iOhaeBgmCwu^jgZ1@LU;PxhQjKrF&P*wGUgF)+Vf@mK zUo1DMQS*Q+b+(O~>lyWSr-JT-524jE0kkcL8g0+5duA)#w)v`^hYzGjrHanV6$f%y zpDQ(7p08G^jY2r)0R`iEtSt*JV{R*^EmNQ*C&Z{h6DepjfYoPMr6-vn; nfi17Tgxx93hEG{zWONMNEv7*Kx~p8!|!_zG9qwgWH<1d9nzP FF8~;MHWvT@ diff --git a/gpsbabel/win32/gui-2/about.pas b/gpsbabel/win32/gui-2/about.pas index 247c594c4..f19c2d2cc 100644 --- a/gpsbabel/win32/gui-2/about.pas +++ b/gpsbabel/win32/gui-2/about.pas @@ -23,19 +23,24 @@ interface uses gnugettextD4, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, - StdCtrls, Buttons, ExtCtrls; + StdCtrls, Buttons, ExtCtrls, + common; type TfrmAbout = class(TForm) pnClient: TPanel; Image1: TImage; - StaticText1: TStaticText; - StaticText2: TStaticText; pnBottom: TPanel; BitBtn1: TBitBtn; + StaticText3: TStaticText; + Panel1: TPanel; + StaticText1: TStaticText; + StaticText2: TStaticText; + Image2: TImage; procedure FormCreate(Sender: TObject); private { Private declarations } + FTitle: string; public { Public declarations } end; @@ -45,12 +50,18 @@ var implementation +uses + utils; + {$R *.DFM} procedure TfrmAbout.FormCreate(Sender: TObject); begin gnugettextD4.TranslateComponent(SELF); + FTitle := Caption; + Caption := FTitle + ' GPSBabelGUI-2'; + + FixStaticText(Self); end; end. - \ No newline at end of file diff --git a/gpsbabel/win32/gui-2/filter.dfm b/gpsbabel/win32/gui-2/filter.dfm index 596daab3fd84a479fdec3e653f3b58029d549e21..486ad565d08735f3d4e0a8075845fbb8cb674cc2 100644 GIT binary patch delta 31 mcmdmOvB*O3KNmxYTad4tr%#A$5QBjL-$p?V?#)5mF9iUcPYE*s delta 57 zcmZ2vvD-rMKNmxYTad4tr%#A$5QBk$`bI$wZb?qZoXqsR+|;}hcHWXipVYJxuhQa@ M%(TkQmfSA|0QZy\n" "Language-Team: \n" "MIME-Version: 1.0\n" @@ -19,13 +19,13 @@ msgid "About" msgstr "Über" #. frmAbout..Font.Name -#. frmAbout..pnClient..StaticText1..Font.Name +#. frmAbout..pnClient..Panel1..StaticText1..Font.Name #. frmFilter..Font.Name #. frmMain..Font.Name #. frmMain..Panel2..lbWhat..Font.Name #. frmReadme..Font.Name #: about.dfm:12 -#: about.dfm:72 +#: about.dfm:125 #: filter.dfm:13 #: main.dfm:11 #: main.dfm:238 @@ -33,21 +33,20 @@ msgstr "Über" msgid "MS Sans Serif" msgstr "MS Sans Serif" -#. frmAbout..pnClient..Caption -#: about.dfm:26 +#. frmAbout..pnClient..StaticText3..Caption +#: about.dfm:105 msgid "... under construction" msgstr "... in Bearbeitung" -#. frmAbout..pnClient..StaticText1..Caption -#: about.dfm:68 +#. frmAbout..pnClient..Panel1..StaticText1..Caption +#: about.dfm:121 msgid "GPSBabelGUI-2:" msgstr "GPSBabelGUI-2:" -#. frmAbout..pnClient..StaticText2..Caption -#: about.dfm:82 -#, fuzzy +#. frmAbout..pnClient..Panel1..StaticText2..Caption +#: about.dfm:139 msgid "The frontend for gpsbabel command line program" -msgstr "Das Windows-Fontend für ..." +msgstr "Das Windows-Fontend für \"gpsbabel.exe\"" #. frmFilter..Caption #: filter.dfm:6 @@ -104,7 +103,7 @@ msgstr "ACTIVE LOG # %Y%m%d" #. frmFilter..gbTracks..cbTrackSplit..Hint #: filter.dfm:91 msgid "Split track into several tracks depending on date of trackpoint" -msgstr "" +msgstr "Erzeuge mehrere Tracks abhängig vom Datum der Trackpunkte" #. frmFilter..gbTracks..cbTrackSplit..Caption #: filter.dfm:92 @@ -132,151 +131,150 @@ msgid "Start at" msgstr "Beginnend am" #. frmFilter..gbTracks..cbTrackStop..Caption -#: filter.dfm:234 +#: filter.dfm:233 msgid "stop at" msgstr "bis zum" #. frmFilter..gbTracks..cbTrackPack..Hint -#: filter.dfm:273 +#: filter.dfm:272 msgid "Pack all tracks into one track (No duplicate timestamps)" msgstr "Alle Tracks zu einem einzigen zusammenfassen (doppelte Zeitstempel unzulässig)" #. frmFilter..gbTracks..cbTrackPack..Caption -#: filter.dfm:274 +#: filter.dfm:273 msgid "&Pack (or)" msgstr "&Packen (oder)" #. frmFilter..gbTracks..cbTrackMerge..Hint -#: filter.dfm:283 +#: filter.dfm:282 msgid "Merge all tracks into one track" msgstr "" #. frmFilter..gbTracks..cbTrackMerge..Caption -#: filter.dfm:284 +#: filter.dfm:283 msgid "Merge" msgstr "Zusammenführen" #. frmFilter..gbRoutes..Caption -#: filter.dfm:295 +#: filter.dfm:294 msgid "&Routes && Tracks" msgstr "&Routen && Tracks" #. frmFilter..gbRoutes..lbRouteSimplifyCount..Caption -#: filter.dfm:303 +#: filter.dfm:302 msgid "limit to" msgstr "maximal" #. frmFilter..gbRoutes..lbRouteSimplifyText..Caption -#: filter.dfm:311 +#: filter.dfm:310 msgid "Points" msgstr "Punkte" #. frmFilter..gbRoutes..cbRouteSimplify..Hint -#: filter.dfm:318 +#: filter.dfm:317 msgid "Simplify routes and tracks by limited number of points" msgstr "Limitiert die Anzahl von Wegpunkten in Routen und Tracks" #. frmFilter..gbRoutes..cbRouteSimplify..Caption -#: filter.dfm:319 +#: filter.dfm:318 msgid "Simplify" msgstr "Vereinfachen" #. frmFilter..gbRoutes..edRoutesSimplifyMaxPoints..Hint -#: filter.dfm:328 +#: filter.dfm:327 msgid "Upper limit of points for routes and tracks" msgstr "Maximale Anzahl an Punkten innerhalb von Routen und Tracks" #. frmFilter..gbRoutes..edRoutesSimplifyMaxPoints..Text -#: filter.dfm:333 +#: filter.dfm:332 msgid "50 " msgstr "50 " #. frmFilter..gbRoutes..cbReverse..Hint -#: filter.dfm:352 +#: filter.dfm:351 msgid "Reverse routes and tracks" msgstr "Reihenfolge von Wegpunkten in Routen und Tracks umdrehen" #. frmFilter..gbRoutes..cbReverse..Caption -#: filter.dfm:353 +#: filter.dfm:352 msgid "Reverse" msgstr "Umdrehen" #. frmFilter..pnBottom..btnOK..Caption -#: filter.dfm:370 +#: filter.dfm:369 msgid "OK" msgstr "OK" #. frmFilter..pnBottom..BitBtn1..Caption -#: filter.dfm:406 +#: filter.dfm:405 msgid "File based filters" msgstr "Datei basierende Filter" #. frmFilter..gbWaypoints..Caption #. frmMain..Panel2..cbWaypoints..Caption -#: filter.dfm:426 +#: filter.dfm:425 #: main.dfm:373 msgid "&Waypoints" msgstr "&Wegpunkte" #. frmFilter..gbWaypoints..cbWayptMergeDupLoc..Hint -#: filter.dfm:452 +#: filter.dfm:451 msgid "Merge waypoints with duplicate locations" msgstr "Fasse Wegpunkte mit gleichen Koordinaten zusammen" #. frmFilter..gbWaypoints..cbWayptMergeDupLoc..Caption -#: filter.dfm:453 +#: filter.dfm:452 msgid "locations" -msgstr "" +msgstr "Koordinaten" #. frmFilter..gbWaypoints..cbWayptMergeDupNames..Hint -#: filter.dfm:462 +#: filter.dfm:461 msgid "Merge waypoints with duplicate \"short name\"" msgstr "Fasse Wegpunkte mit gleichem Namen zusammen" #. frmFilter..gbWaypoints..cbWayptMergeDupNames..Caption -#: filter.dfm:463 +#: filter.dfm:462 msgid "\"short names\"" msgstr "\"Kurznamen\"" #. frmFilter..gbWaypoints..cbWayptMergeDistance..Hint -#: filter.dfm:472 -#, fuzzy +#: filter.dfm:471 msgid "Merge waypoints separated by less then" msgstr "" #. frmFilter..gbWaypoints..cbWayptMergeDistance..Caption -#: filter.dfm:473 +#: filter.dfm:472 msgid "Radius" msgstr "Radius" #. frmFilter..gbWaypoints..cobWayptMergeDist....Items.Strings -#: filter.dfm:487 +#: filter.dfm:486 msgid "Feet" msgstr "Feet" #. frmFilter..gbWaypoints..cobWayptMergeDist....Items.Strings -#: filter.dfm:488 +#: filter.dfm:487 #: filter.pas:163 msgid "Miles" msgstr "Miles" #. frmFilter..gbWaypoints..cbWayptSort..Hint -#: filter.dfm:505 +#: filter.dfm:504 msgid "Sort waypoints by \"short name\" or by description" msgstr "Sortiere Wegpunkte nach Name oder Beschreibung" #. frmFilter..gbWaypoints..cbWayptSort..Caption -#: filter.dfm:506 +#: filter.dfm:505 msgid "Sort" msgstr "Sortieren" #. frmFilter..gbWaypoints..cbWayptMergeDups..Hint -#: filter.dfm:514 +#: filter.dfm:513 msgid "Merge duplicate waypoints" msgstr "Entferne doppelte Wegpunkte" #. frmFilter..gbWaypoints..cbWayptMergeDups..Caption -#: filter.dfm:515 +#: filter.dfm:514 msgid "Duplicatates" msgstr "Duplikate" @@ -360,14 +358,14 @@ msgstr "&Routen" #. frmMain..Panel2..btnFilter..Caption #. frmMain..ActionList1..acFilterSelect..Caption #: main.dfm:404 -#: main.dfm:907 +#: main.dfm:909 msgid "&Filter" msgstr "&Filter" #. frmMain..Panel2..btnProcess..Caption #. frmMain..ActionList1..acConvert..Caption #: main.dfm:428 -#: main.dfm:900 +#: main.dfm:902 msgid "let's go" msgstr "und los" @@ -376,98 +374,139 @@ msgstr "und los" msgid "Fixedsys" msgstr "Fixedsys" -#. frmMain..stbMain......Text -#: main.dfm:473 -msgid "http://sourceforge.net/projects/gpsbabel" -msgstr "http://sourceforge.net/projects/gpsbabel" +#. frmMain..stbMain........Text +#: main.dfm:475 +msgid "http://www.gpsbabel.org (http://sourceforge.net/projects/gpsbabel)" +msgstr "http://www.gpsbabel.org (http://sourceforge.net/projects/gpsbabel)" #. frmMain..OpenDialog..Filter -#: main.dfm:480 +#: main.dfm:482 msgid "Garmin Mapsource|*.gdb|Garmin Mapsource mps|*.mps|All files|*.*" msgstr "Garmin Mapsource|*.gdb|Garmin Mapsource mps|*.mps|All files|*.*" #. frmMain..ActionList1..acConvert..Category #. frmMain..ActionList1..acFilterSelect..Category -#: main.dfm:899 -#: main.dfm:906 +#: main.dfm:901 +#: main.dfm:908 msgid "Babel" msgstr "Babel" #. frmMain..ActionList1..acFileExit..Category -#: main.dfm:912 +#: main.dfm:914 msgid "File" msgstr "Datei" #. frmMain..ActionList1..acFileExit..Caption -#: main.dfm:913 +#: main.dfm:915 msgid "E&xit" msgstr "Beenden" #. frmMain..ActionList1..acHelpAbout..Category #. frmMain..ActionList1..acHelpIntro..Category #. frmMain..ActionList1..acHelpReadme..Category -#: main.dfm:918 -#: main.dfm:923 -#: main.dfm:927 +#: main.dfm:920 +#: main.dfm:925 +#: main.dfm:929 msgid "Help" msgstr "Hilfe" #. frmMain..ActionList1..acHelpAbout..Caption -#: main.dfm:919 +#: main.dfm:921 msgid "&About" msgstr "Über" #. frmMain..ActionList1..acHelpIntro..Caption -#: main.dfm:924 +#: main.dfm:926 msgid "&Intro" msgstr "Einführung" #. frmMain..ActionList1..acHelpReadme..Caption #. frmReadme..Caption -#: main.dfm:928 +#: main.dfm:930 #: readme.dfm:6 msgid "GPSBabel README" msgstr "GPSBabel README" #. frmMain..MainMenu1..mnuFile..Caption -#: main.dfm:937 +#: main.dfm:939 msgid "&File" msgstr "&Datei" +#. frmMain..MainMenu1..mnuOptions..Caption +#: main.dfm:945 +msgid "&Options" +msgstr "&Optionen" + +#. frmMain..MainMenu1..mnuOptions..mnuSynthesizeShortNames..Caption +#: main.dfm:947 +msgid "Synthesize short names" +msgstr "Synthetisiere Kurznamen" + +#. frmMain..MainMenu1..mnuOptions..mnuSynthesizeShortNames....Hint +#: main.dfm:950 +msgid "Ignore \"short\" names from source data and synthesize them from the long name" +msgstr "" + #. frmMain..MainMenu1..mnuHelp..Caption -#: main.dfm:943 +#: main.dfm:956 msgid "&Help" msgstr "&Hilfe" -#: main.pas:249 +#. frmMain..MainMenu1..mnuHelp..N1..Caption +#: main.dfm:964 +msgid "-" +msgstr "-" + +#: main.pas:152 +msgid " (Preview)" +msgstr " (Vorschau)" + +#: main.pas:255 msgid "All files|*.*" msgstr "Alle Dateien|*.*" -#: main.pas:338 +#: main.pas:344 msgid "|All files|*.*" msgstr "|Alle Dateien|*.*" -#: main.pas:377 +#: main.pas:385 msgid "File %s not found." msgstr "Datei \"%s\" nicht gefunden." -#: main.pas:394 +#: main.pas:402 msgid "File \"%s\" exists ! Overwrite ?" msgstr "Datei \"%s\" existiert bereits! Überschreiben?" -#: main.pas:395 +#: main.pas:403 msgid "Warning" msgstr "Warnung" -#: main.pas:420 +#: main.pas:428 msgid "Could not run \"gpsbabel.exe\"!" msgstr "Konnte \"gpsbabel.exe\" nicht ausführen!" -#: main.pas:429 +#: main.pas:437 msgid "Converted successfully from \"%s\" to \"%s\"." msgstr "Erfolgreich konvertiert von \"%s\" zu \"%s\"." -#: main.pas:430 +#: main.pas:438 msgid "Success" msgstr "Erfolg" +#: utils.pas:73 +msgid "Error WINAPI: Could not create \"NamedPipe\"!" +msgstr "Fehler WINAPI: \"NamedPipe\" konnte nicht erstellt werden!" + +#: utils.pas:78 +msgid "\"gpsbabel.exe\" not found!!!" +msgstr "" + +#. dwCreationFlags, // creation flags +#: utils.pas:97 +msgid "Could not run \"gpsbabel.exe\" (Error %d)!" +msgstr "Konnte \"gpsbabel.exe\" nicht ausführen (Fehler %d)!" + +#: utils.pas:103 +msgid "\"gpsbabel.exe\" returned error 0x%x (%d)" +msgstr "\"gpsbabel.exe\" verließ uns mit Fehler 0x%x (%d)!" + diff --git a/gpsbabel/win32/gui-2/locale/fr/LC_MESSAGES/default.po b/gpsbabel/win32/gui-2/locale/fr/LC_MESSAGES/default.po index 5cdaafa58..9e3b903f2 100644 --- a/gpsbabel/win32/gui-2/locale/fr/LC_MESSAGES/default.po +++ b/gpsbabel/win32/gui-2/locale/fr/LC_MESSAGES/default.po @@ -7,8 +7,8 @@ msgid "" msgstr "" "Project-Id-Version: French version\n" "POT-Creation-Date: 2005-09-22 23:44\n" -"PO-Revision-Date: 2005-09-24 22:45+0100\n" -"Last-Translator: Lilian Morinon \n" +"PO-Revision-Date: 2005-09-29 01:32+0100\n" +"Last-Translator: Olaf Klein \n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" @@ -24,32 +24,32 @@ msgid "About" msgstr "A propos" #. frmAbout..Font.Name -#. frmAbout..pnClient..StaticText1..Font.Name +#. frmAbout..pnClient..Panel1..StaticText1..Font.Name #. frmFilter..Font.Name #. frmMain..Font.Name #. frmMain..Panel2..lbWhat..Font.Name #. frmReadme..Font.Name #: about.dfm:12 -#: about.dfm:72 +#: about.dfm:125 #: filter.dfm:13 #: main.dfm:11 #: main.dfm:238 #: readme.dfm:11 msgid "MS Sans Serif" -msgstr "" +msgstr "MS Sans Serif" -#. frmAbout..pnClient..Caption -#: about.dfm:26 +#. frmAbout..pnClient..StaticText3..Caption +#: about.dfm:105 msgid "... under construction" msgstr "...en travaux" -#. frmAbout..pnClient..StaticText1..Caption -#: about.dfm:68 +#. frmAbout..pnClient..Panel1..StaticText1..Caption +#: about.dfm:121 msgid "GPSBabelGUI-2:" -msgstr "" +msgstr "GPSBabelGUI-2:" -#. frmAbout..pnClient..StaticText2..Caption -#: about.dfm:82 +#. frmAbout..pnClient..Panel1..StaticText2..Caption +#: about.dfm:139 msgid "The frontend for gpsbabel command line program" msgstr "L'interface graphique de gpsbabel" @@ -103,7 +103,7 @@ msgstr "Tit&re" #. frmFilter..gbTracks..edTrackTitle..Text #: filter.dfm:84 msgid "ACTIVE LOG # %Y%m%d" -msgstr "" +msgstr "ACTIVE LOG # %Y%m%d" #. frmFilter..gbTracks..cbTrackSplit..Hint #: filter.dfm:91 @@ -136,157 +136,157 @@ msgid "Start at" msgstr "Commencer à" #. frmFilter..gbTracks..cbTrackStop..Caption -#: filter.dfm:234 +#: filter.dfm:233 msgid "stop at" msgstr "Arrêter à" #. frmFilter..gbTracks..cbTrackPack..Hint -#: filter.dfm:273 +#: filter.dfm:272 msgid "Pack all tracks into one track (No duplicate timestamps)" msgstr "Fusionner toutes les traces en une seule (pas de duplication de l'horodatage)" #. frmFilter..gbTracks..cbTrackPack..Caption -#: filter.dfm:274 +#: filter.dfm:273 msgid "&Pack (or)" msgstr "&Fusionner (ou)" #. frmFilter..gbTracks..cbTrackMerge..Hint -#: filter.dfm:283 +#: filter.dfm:282 msgid "Merge all tracks into one track" msgstr "Fusionner toutes les traces en une seule" #. frmFilter..gbTracks..cbTrackMerge..Caption -#: filter.dfm:284 +#: filter.dfm:283 msgid "Merge" msgstr "Fusionner" #. frmFilter..gbRoutes..Caption -#: filter.dfm:295 +#: filter.dfm:294 msgid "&Routes && Tracks" msgstr "&Routes && Traces" #. frmFilter..gbRoutes..lbRouteSimplifyCount..Caption -#: filter.dfm:303 +#: filter.dfm:302 msgid "limit to" msgstr "limiter à" #. frmFilter..gbRoutes..lbRouteSimplifyText..Caption -#: filter.dfm:311 +#: filter.dfm:310 msgid "Points" msgstr "" #. frmFilter..gbRoutes..cbRouteSimplify..Hint -#: filter.dfm:318 +#: filter.dfm:317 msgid "Simplify routes and tracks by limited number of points" msgstr "Simplifier les routes et traces en limitant le nombre de points" #. frmFilter..gbRoutes..cbRouteSimplify..Caption -#: filter.dfm:319 +#: filter.dfm:318 msgid "Simplify" msgstr "Simplifier" #. frmFilter..gbRoutes..edRoutesSimplifyMaxPoints..Hint -#: filter.dfm:328 +#: filter.dfm:327 msgid "Upper limit of points for routes and tracks" msgstr "Limite maximum du nombre de points pour les routes et traces" #. frmFilter..gbRoutes..edRoutesSimplifyMaxPoints..Text -#: filter.dfm:333 +#: filter.dfm:332 msgid "50 " -msgstr "" +msgstr "50 " #. frmFilter..gbRoutes..cbReverse..Hint -#: filter.dfm:352 +#: filter.dfm:351 msgid "Reverse routes and tracks" msgstr "Inverser les routes et les traces" #. frmFilter..gbRoutes..cbReverse..Caption -#: filter.dfm:353 +#: filter.dfm:352 msgid "Reverse" msgstr "Inverser" #. frmFilter..pnBottom..btnOK..Caption -#: filter.dfm:370 +#: filter.dfm:369 msgid "OK" -msgstr "" +msgstr "OK" #. frmFilter..pnBottom..BitBtn1..Caption -#: filter.dfm:406 +#: filter.dfm:405 msgid "File based filters" msgstr "Filtres de fichiers" #. frmFilter..gbWaypoints..Caption #. frmMain..Panel2..cbWaypoints..Caption -#: filter.dfm:426 +#: filter.dfm:425 #: main.dfm:373 msgid "&Waypoints" msgstr "" #. frmFilter..gbWaypoints..cbWayptMergeDupLoc..Hint -#: filter.dfm:452 +#: filter.dfm:451 msgid "Merge waypoints with duplicate locations" msgstr "Fusionner les waypoints avec les positions en doublon" #. frmFilter..gbWaypoints..cbWayptMergeDupLoc..Caption -#: filter.dfm:453 +#: filter.dfm:452 msgid "locations" msgstr "positions" #. frmFilter..gbWaypoints..cbWayptMergeDupNames..Hint -#: filter.dfm:462 +#: filter.dfm:461 msgid "Merge waypoints with duplicate \"short name\"" msgstr "Fusionner les waypoints avec les doublons \"short name\"" #. frmFilter..gbWaypoints..cbWayptMergeDupNames..Caption -#: filter.dfm:463 +#: filter.dfm:462 msgid "\"short names\"" msgstr "" #. frmFilter..gbWaypoints..cbWayptMergeDistance..Hint -#: filter.dfm:472 +#: filter.dfm:471 msgid "Merge waypoints separated by less then" msgstr "Fusionner les waypoints séparé par moins de" #. frmFilter..gbWaypoints..cbWayptMergeDistance..Caption -#: filter.dfm:473 +#: filter.dfm:472 msgid "Radius" msgstr "Rayon" #. frmFilter..gbWaypoints..cobWayptMergeDist....Items.Strings -#: filter.dfm:487 +#: filter.dfm:486 msgid "Feet" msgstr "" #. frmFilter..gbWaypoints..cobWayptMergeDist....Items.Strings -#: filter.dfm:488 +#: filter.dfm:487 #: filter.pas:163 msgid "Miles" msgstr "" #. frmFilter..gbWaypoints..cbWayptSort..Hint -#: filter.dfm:505 +#: filter.dfm:504 msgid "Sort waypoints by \"short name\" or by description" msgstr "Trier les waypoints par \"short name\" ou par description" #. frmFilter..gbWaypoints..cbWayptSort..Caption -#: filter.dfm:506 +#: filter.dfm:505 msgid "Sort" msgstr "Trier" #. frmFilter..gbWaypoints..cbWayptMergeDups..Hint -#: filter.dfm:514 +#: filter.dfm:513 msgid "Merge duplicate waypoints" msgstr "Fusionner les waypoints identiques" #. frmFilter..gbWaypoints..cbWayptMergeDups..Caption -#: filter.dfm:515 +#: filter.dfm:514 msgid "Duplicatates" msgstr "Doublons" #. frmMain..Caption #: main.dfm:6 msgid "GPSBabelGUI-2" -msgstr "" +msgstr "GPSBabelGUI-2" #. frmMain..Panel1..lbInputFile..Caption #: main.dfm:78 @@ -320,35 +320,35 @@ msgstr "Périphérique" #: main.dfm:162 #: main.dfm:211 msgid "USB" -msgstr "" +msgstr "USB" #. frmMain..Panel1..cbInputDevice....Items.Strings #. frmMain..Panel1..cbOutputDevice....Items.Strings #: main.dfm:163 #: main.dfm:212 msgid "COM1" -msgstr "" +msgstr "COM1" #. frmMain..Panel1..cbInputDevice....Items.Strings #. frmMain..Panel1..cbOutputDevice....Items.Strings #: main.dfm:164 #: main.dfm:213 msgid "COM2" -msgstr "" +msgstr "COM2" #. frmMain..Panel1..cbInputDevice....Items.Strings #. frmMain..Panel1..cbOutputDevice....Items.Strings #: main.dfm:165 #: main.dfm:214 msgid "COM3" -msgstr "" +msgstr "COM3" #. frmMain..Panel1..cbInputDevice....Items.Strings #. frmMain..Panel1..cbOutputDevice....Items.Strings #: main.dfm:166 #: main.dfm:215 msgid "COM4" -msgstr "" +msgstr "COM4" #. frmMain..Panel2..lbWhat..Caption #: main.dfm:234 @@ -363,114 +363,155 @@ msgstr "" #. frmMain..Panel2..btnFilter..Caption #. frmMain..ActionList1..acFilterSelect..Caption #: main.dfm:404 -#: main.dfm:907 +#: main.dfm:909 msgid "&Filter" msgstr "&Filtre" #. frmMain..Panel2..btnProcess..Caption #. frmMain..ActionList1..acConvert..Caption #: main.dfm:428 -#: main.dfm:900 +#: main.dfm:902 msgid "let's go" msgstr "Lancer" #. frmMain..memoOutput..Font.Name #: main.dfm:455 msgid "Fixedsys" -msgstr "" +msgstr "Fixedsys" -#. frmMain..stbMain......Text -#: main.dfm:473 -msgid "http://sourceforge.net/projects/gpsbabel" -msgstr "" +#. frmMain..stbMain........Text +#: main.dfm:475 +msgid "http://www.gpsbabel.org (http://sourceforge.net/projects/gpsbabel)" +msgstr "http://www.gpsbabel.org (http://sourceforge.net/projects/gpsbabel)" #. frmMain..OpenDialog..Filter -#: main.dfm:480 +#: main.dfm:482 msgid "Garmin Mapsource|*.gdb|Garmin Mapsource mps|*.mps|All files|*.*" msgstr "Garmin Mapsource|*.gdb|Garmin Mapsource mps|*.mps|Tous les fichiers|*.*" #. frmMain..ActionList1..acConvert..Category #. frmMain..ActionList1..acFilterSelect..Category -#: main.dfm:899 -#: main.dfm:906 +#: main.dfm:901 +#: main.dfm:908 msgid "Babel" -msgstr "" +msgstr "Babel" #. frmMain..ActionList1..acFileExit..Category -#: main.dfm:912 +#: main.dfm:914 msgid "File" msgstr "Fichier" #. frmMain..ActionList1..acFileExit..Caption -#: main.dfm:913 +#: main.dfm:915 msgid "E&xit" msgstr "F&ermer" #. frmMain..ActionList1..acHelpAbout..Category #. frmMain..ActionList1..acHelpIntro..Category #. frmMain..ActionList1..acHelpReadme..Category -#: main.dfm:918 -#: main.dfm:923 -#: main.dfm:927 +#: main.dfm:920 +#: main.dfm:925 +#: main.dfm:929 msgid "Help" msgstr "Aide" #. frmMain..ActionList1..acHelpAbout..Caption -#: main.dfm:919 +#: main.dfm:921 msgid "&About" msgstr "&A propos" #. frmMain..ActionList1..acHelpIntro..Caption -#: main.dfm:924 +#: main.dfm:926 msgid "&Intro" msgstr "&Introduction" #. frmMain..ActionList1..acHelpReadme..Caption #. frmReadme..Caption -#: main.dfm:928 +#: main.dfm:930 #: readme.dfm:6 msgid "GPSBabel README" msgstr "GPSBabel README" #. frmMain..MainMenu1..mnuFile..Caption -#: main.dfm:937 +#: main.dfm:939 msgid "&File" msgstr "&Fichier" +#. frmMain..MainMenu1..mnuOptions..Caption +#: main.dfm:945 +msgid "&Options" +msgstr "" + +#. frmMain..MainMenu1..mnuOptions..mnuSynthesizeShortNames..Caption +#: main.dfm:947 +msgid "Synthesize short names" +msgstr "" + +#. frmMain..MainMenu1..mnuOptions..mnuSynthesizeShortNames....Hint +#: main.dfm:950 +msgid "Ignore \"short\" names from source data and synthesize them from the long name" +msgstr "" + #. frmMain..MainMenu1..mnuHelp..Caption -#: main.dfm:943 +#: main.dfm:956 msgid "&Help" msgstr "&Aide" -#: main.pas:249 +#. frmMain..MainMenu1..mnuHelp..N1..Caption +#: main.dfm:964 +msgid "-" +msgstr "-" + +#: main.pas:152 +msgid " (Preview)" +msgstr "" + +#: main.pas:255 msgid "All files|*.*" msgstr "Tous les fichiers|*.*" -#: main.pas:338 +#: main.pas:344 msgid "|All files|*.*" msgstr "|Tous les fichiers|*.*" -#: main.pas:377 +#: main.pas:385 msgid "File %s not found." msgstr "Fichier%s non trouvé." -#: main.pas:394 +#: main.pas:402 msgid "File \"%s\" exists ! Overwrite ?" msgstr "Le fichier \"%s\" existe déjà ! Ecraser ?" -#: main.pas:395 +#: main.pas:403 msgid "Warning" msgstr "Attention" -#: main.pas:420 +#: main.pas:428 msgid "Could not run \"gpsbabel.exe\"!" msgstr "Impossible d'éxécuter \"gpsbabel.exe\"!" -#: main.pas:429 +#: main.pas:437 msgid "Converted successfully from \"%s\" to \"%s\"." msgstr "Conversion de \"%s\" à \"%s\" réussie." -#: main.pas:430 +#: main.pas:438 msgid "Success" msgstr "Succès" +#: utils.pas:76 +msgid "Error WINAPI: Could not create \"NamedPipe\"!" +msgstr "" + +#: utils.pas:81 +msgid "\"gpsbabel.exe\" not found!!!" +msgstr "" + +#. dwCreationFlags, // creation flags +#: utils.pas:100 +msgid "Could not run \"gpsbabel.exe\" (Error %d)!" +msgstr "" + +#: utils.pas:106 +msgid "\"gpsbabel.exe\" returned error 0x%x (%d)" +msgstr "" + diff --git a/gpsbabel/win32/gui-2/main.dfm b/gpsbabel/win32/gui-2/main.dfm index 32911004ebee6c5bbc7c0a586dd99ec369bef994..aaeb6336629d7b371a18ae2da0b82ce5903d65b9 100644 GIT binary patch delta 286 zcmbQYhOvJgBmaLch7h+PUtdR0KL!JVzZ>}zL+iP6^Gf{-N;32FirJkL!3;JIHK+&! zXNYfVUa4nEYOXj?U2tVyNk(dMW>so%Mt)I=Ut(@5LX#LmR-qUqt&j(jXYt6)D`E5T zOwY?NN>xw-%P2vl6w-?F>vI)~^Gl18Qx#GYOA-|l^HLOw;kGCMZOa9z$_23$a`N-i w!8$pE5>qnsL9XIt_s?_A$xO~>m%-sauq*=ul26!yDm_wj3c%i-TpPL&01S?1EdT%j delta 30 mcmeBQ$2e~dBmaLch7h+PUtdR0KL!H, YEAR. -# +# +#, fuzzy msgid "" msgstr "" "Project-Id-Version: PACKAGE VERSION\n" -"POT-Creation-Date: 2005-09-22 23:44\n" -"PO-Revision-Date: 2005-09-22 23:44\n" +"POT-Creation-Date: 2005-09-29 01:27\n" +"PO-Revision-Date: 2005-09-29 01:27\n" "Last-Translator: Somebody \n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" -"X-Generator: dxgettext 1.2\n" +"X-Generator: dxgettext 1.2.1\n" #. frmAbout..Caption #: about.dfm:5 @@ -21,8 +22,8 @@ msgstr "" #. frmAbout..Font.Name #: about.dfm:12 -#. frmAbout..pnClient..StaticText1..Font.Name -#: about.dfm:72 +#. frmAbout..pnClient..Panel1..StaticText1..Font.Name +#: about.dfm:125 #. frmFilter..Font.Name #: filter.dfm:13 #. frmMain..Font.Name @@ -34,18 +35,18 @@ msgstr "" msgid "MS Sans Serif" msgstr "" -#. frmAbout..pnClient..Caption -#: about.dfm:26 +#. frmAbout..pnClient..StaticText3..Caption +#: about.dfm:105 msgid "... under construction" msgstr "" -#. frmAbout..pnClient..StaticText1..Caption -#: about.dfm:68 +#. frmAbout..pnClient..Panel1..StaticText1..Caption +#: about.dfm:121 msgid "GPSBabelGUI-2:" msgstr "" -#. frmAbout..pnClient..StaticText2..Caption -#: about.dfm:82 +#. frmAbout..pnClient..Panel1..StaticText2..Caption +#: about.dfm:139 msgid "The frontend for gpsbabel command line " "program" msgstr "" @@ -134,155 +135,155 @@ msgid "Start at" msgstr "" #. frmFilter..gbTracks..cbTrackStop..Caption -#: filter.dfm:234 +#: filter.dfm:233 msgid "stop at" msgstr "" #. frmFilter..gbTracks..cbTrackPack..Hint -#: filter.dfm:273 +#: filter.dfm:272 msgid "Pack all tracks into one track (No duplicate " "timestamps)" msgstr "" #. frmFilter..gbTracks..cbTrackPack..Caption -#: filter.dfm:274 +#: filter.dfm:273 msgid "&Pack (or)" msgstr "" #. frmFilter..gbTracks..cbTrackMerge..Hint -#: filter.dfm:283 +#: filter.dfm:282 msgid "Merge all tracks into one track" msgstr "" #. frmFilter..gbTracks..cbTrackMerge..Caption -#: filter.dfm:284 +#: filter.dfm:283 msgid "Merge" msgstr "" #. frmFilter..gbRoutes..Caption -#: filter.dfm:295 +#: filter.dfm:294 msgid "&Routes && Tracks" msgstr "" #. frmFilter..gbRoutes..lbRouteSimplifyCount..Caption -#: filter.dfm:303 +#: filter.dfm:302 msgid "limit to" msgstr "" #. frmFilter..gbRoutes..lbRouteSimplifyText..Caption -#: filter.dfm:311 +#: filter.dfm:310 msgid "Points" msgstr "" #. frmFilter..gbRoutes..cbRouteSimplify..Hint -#: filter.dfm:318 +#: filter.dfm:317 msgid "Simplify routes and tracks by limited number of " "points" msgstr "" #. frmFilter..gbRoutes..cbRouteSimplify..Caption -#: filter.dfm:319 +#: filter.dfm:318 msgid "Simplify" msgstr "" #. frmFilter..gbRoutes..edRoutesSimplifyMaxPoints..Hint -#: filter.dfm:328 +#: filter.dfm:327 msgid "Upper limit of points for routes and " "tracks" msgstr "" #. frmFilter..gbRoutes..edRoutesSimplifyMaxPoints..Text -#: filter.dfm:333 +#: filter.dfm:332 msgid "50 " msgstr "" #. frmFilter..gbRoutes..cbReverse..Hint -#: filter.dfm:352 +#: filter.dfm:351 msgid "Reverse routes and tracks" msgstr "" #. frmFilter..gbRoutes..cbReverse..Caption -#: filter.dfm:353 +#: filter.dfm:352 msgid "Reverse" msgstr "" #. frmFilter..pnBottom..btnOK..Caption -#: filter.dfm:370 +#: filter.dfm:369 msgid "OK" msgstr "" #. frmFilter..pnBottom..BitBtn1..Caption -#: filter.dfm:406 +#: filter.dfm:405 msgid "File based filters" msgstr "" #. frmFilter..gbWaypoints..Caption -#: filter.dfm:426 +#: filter.dfm:425 #. frmMain..Panel2..cbWaypoints..Caption #: main.dfm:373 msgid "&Waypoints" msgstr "" #. frmFilter..gbWaypoints..cbWayptMergeDupLoc..Hint -#: filter.dfm:452 +#: filter.dfm:451 msgid "Merge waypoints with duplicate locations" msgstr "" #. frmFilter..gbWaypoints..cbWayptMergeDupLoc..Caption -#: filter.dfm:453 +#: filter.dfm:452 msgid "locations" msgstr "" #. frmFilter..gbWaypoints..cbWayptMergeDupNames..Hint -#: filter.dfm:462 +#: filter.dfm:461 msgid "Merge waypoints with duplicate \"short " "name\"" msgstr "" #. frmFilter..gbWaypoints..cbWayptMergeDupNames..Caption -#: filter.dfm:463 +#: filter.dfm:462 msgid "\"short names\"" msgstr "" #. frmFilter..gbWaypoints..cbWayptMergeDistance..Hint -#: filter.dfm:472 +#: filter.dfm:471 msgid "Merge waypoints separated by less then" msgstr "" #. frmFilter..gbWaypoints..cbWayptMergeDistance..Caption -#: filter.dfm:473 +#: filter.dfm:472 msgid "Radius" msgstr "" #. frmFilter..gbWaypoints..cobWayptMergeDist....Items.Strings -#: filter.dfm:487 +#: filter.dfm:486 msgid "Feet" msgstr "" #. frmFilter..gbWaypoints..cobWayptMergeDist....Items.Strings -#: filter.dfm:488 +#: filter.dfm:487 #: filter.pas:163 msgid "Miles" msgstr "" #. frmFilter..gbWaypoints..cbWayptSort..Hint -#: filter.dfm:505 +#: filter.dfm:504 msgid "Sort waypoints by \"short name\" or by " "description" msgstr "" #. frmFilter..gbWaypoints..cbWayptSort..Caption -#: filter.dfm:506 +#: filter.dfm:505 msgid "Sort" msgstr "" #. frmFilter..gbWaypoints..cbWayptMergeDups..Hint -#: filter.dfm:514 +#: filter.dfm:513 msgid "Merge duplicate waypoints" msgstr "" #. frmFilter..gbWaypoints..cbWayptMergeDups..Caption -#: filter.dfm:515 +#: filter.dfm:514 msgid "Duplicatates" msgstr "" @@ -366,14 +367,14 @@ msgstr "" #. frmMain..Panel2..btnFilter..Caption #: main.dfm:404 #. frmMain..ActionList1..acFilterSelect..Caption -#: main.dfm:907 +#: main.dfm:909 msgid "&Filter" msgstr "" #. frmMain..Panel2..btnProcess..Caption #: main.dfm:428 #. frmMain..ActionList1..acConvert..Caption -#: main.dfm:900 +#: main.dfm:902 msgid "let's go" msgstr "" @@ -382,100 +383,143 @@ msgstr "" msgid "Fixedsys" msgstr "" -#. frmMain..stbMain......Text -#: main.dfm:473 -msgid "http://sourceforge.net/projects/gpsbabel" +#. frmMain..stbMain........Text +#: main.dfm:475 +msgid "http://www.gpsbabel.org (http://sourceforge.net/projects/gpsbabel)" msgstr "" #. frmMain..OpenDialog..Filter -#: main.dfm:480 +#: main.dfm:482 msgid "Garmin Mapsource|*.gdb|Garmin Mapsource mps|*.mps|All " "files|*.*" msgstr "" #. frmMain..ActionList1..acConvert..Category -#: main.dfm:899 +#: main.dfm:901 #. frmMain..ActionList1..acFilterSelect..Category -#: main.dfm:906 +#: main.dfm:908 msgid "Babel" msgstr "" #. frmMain..ActionList1..acFileExit..Category -#: main.dfm:912 +#: main.dfm:914 msgid "File" msgstr "" #. frmMain..ActionList1..acFileExit..Caption -#: main.dfm:913 +#: main.dfm:915 msgid "E&xit" msgstr "" #. frmMain..ActionList1..acHelpAbout..Category -#: main.dfm:918 +#: main.dfm:920 #. frmMain..ActionList1..acHelpIntro..Category -#: main.dfm:923 +#: main.dfm:925 #. frmMain..ActionList1..acHelpReadme..Category -#: main.dfm:927 +#: main.dfm:929 msgid "Help" msgstr "" #. frmMain..ActionList1..acHelpAbout..Caption -#: main.dfm:919 +#: main.dfm:921 msgid "&About" msgstr "" #. frmMain..ActionList1..acHelpIntro..Caption -#: main.dfm:924 +#: main.dfm:926 msgid "&Intro" msgstr "" #. frmMain..ActionList1..acHelpReadme..Caption -#: main.dfm:928 +#: main.dfm:930 #. frmReadme..Caption #: readme.dfm:6 msgid "GPSBabel README" msgstr "" #. frmMain..MainMenu1..mnuFile..Caption -#: main.dfm:937 +#: main.dfm:939 msgid "&File" msgstr "" +#. frmMain..MainMenu1..mnuOptions..Caption +#: main.dfm:945 +msgid "&Options" +msgstr "" + +#. frmMain..MainMenu1..mnuOptions..mnuSynthesizeShortNames..Caption +#: main.dfm:947 +msgid "Synthesize short names" +msgstr "" + +#. frmMain..MainMenu1..mnuOptions..mnuSynthesizeShortNames....Hint +#: main.dfm:950 +msgid "Ignore \"short\" names from source data and synthesize them from the " +"long name" +msgstr "" + #. frmMain..MainMenu1..mnuHelp..Caption -#: main.dfm:943 +#: main.dfm:956 msgid "&Help" msgstr "" -#: main.pas:249 +#. frmMain..MainMenu1..mnuHelp..N1..Caption +#: main.dfm:964 +msgid "-" +msgstr "" + +#: main.pas:152 +msgid " (Preview)" +msgstr "" + +#: main.pas:255 msgid "All files|*.*" msgstr "" -#: main.pas:338 +#: main.pas:344 msgid "|All files|*.*" msgstr "" -#: main.pas:377 +#: main.pas:385 msgid "File %s not found." msgstr "" -#: main.pas:394 +#: main.pas:402 msgid "File \"%s\" exists ! Overwrite ?" msgstr "" -#: main.pas:395 +#: main.pas:403 msgid "Warning" msgstr "" -#: main.pas:420 +#: main.pas:428 msgid "Could not run \"gpsbabel.exe\"!" msgstr "" -#: main.pas:429 +#: main.pas:437 msgid "Converted successfully from \"%s\" to " "\"%s\"." msgstr "" -#: main.pas:430 +#: main.pas:438 msgid "Success" msgstr "" +#: utils.pas:76 +msgid "Error WINAPI: Could not create \"NamedPipe\"!" +msgstr "" + +#: utils.pas:81 +msgid "\"gpsbabel.exe\" not found!!!" +msgstr "" + +#. dwCreationFlags, // creation flags +#: utils.pas:100 +msgid "Could not run \"gpsbabel.exe\" (Error " +"%d)!" +msgstr "" + +#: utils.pas:106 +msgid "\"gpsbabel.exe\" returned error 0x%x (%d)" +msgstr "" + diff --git a/gpsbabel/win32/gui-2/utils.pas b/gpsbabel/win32/gui-2/utils.pas index f114227c7..aeede97b7 100644 --- a/gpsbabel/win32/gui-2/utils.pas +++ b/gpsbabel/win32/gui-2/utils.pas @@ -33,9 +33,12 @@ function ReadProfile(const Tag: Integer): string; function BackupProperties(Instance: TObject; Properties: TStrings; Backup: TStringList): Boolean; procedure RestoreProperties(Instance: TObject; Backup: TStringList); +procedure FixStaticText(AComponent: TComponent); + implementation uses + StdCtrls, common; function GetShortName(const PathName: string): string; @@ -65,24 +68,17 @@ begin sCmd := SysUtils.Format('%s %s ', [gpsbabel_exe, CommandLine]); -{ i := WinExec(PChar(sCmd), SW_SHOWNORMAL); - if (i <> 33) then - begin - MessageBox(0, 'There was an error.', 'Uhps', MB_OK); - Exit; - end; -} SecurityAttr.nLength := sizeof (TSECURITYATTRIBUTES); SecurityAttr.bInheritHandle := true; SecurityAttr.lpSecurityDescriptor := nil; if not CreatePipe(hRead, hWrite, @SecurityAttr, 0) then - raise eGPSBabelError.Create('Konnte "NamedPipe" nicht anlegen!'); + raise eGPSBabelError.Create(_('Error WINAPI: Could not create "NamedPipe"!')); try if not FileExists(gpsbabel_exe) then - raise eGPSBabelError.Create('gpsbabel.exe wurde nicht gefunden!'); + raise eGPSBabelError.Create(_('"gpsbabel.exe" not found!!!')); FillChar (StartupInfo, Sizeof (StartupInfo), #0); @@ -95,31 +91,19 @@ begin FillChar(ProcessInfo, SizeOf(ProcessInfo), #0); - if not CreateProcess ( - nil, // lpApplicationName // pointer to name of executable module - // sCmd includes both the exec name and the command line parms in this call - pchar (sCmd), // lpCommandLine, // pointer to command line string - nil, // lpProcessAttributes, // pointer to process security attributes - nil, // lpThreadAttributes, // pointer to thread security attributes - true, // bInheritHandles, // handle inheritance flag - CREATE_NEW_CONSOLE, // dwCreationFlags, // creation flags - nil, // lpEnvironment, // pointer to new environment block - nil, // lpCurrentDirectory, // pointer to current directory name - StartupInfo, // lpStartupInfo, // pointer to STARTUPINFO - ProcessInfo) // lpProcessInformation // pointer to PROCESS_INFORMATION - then + if not CreateProcess(nil, + pchar(sCmd), nil, nil, true, CREATE_NEW_CONSOLE, // dwCreationFlags, // creation flags + nil, nil, StartupInfo, ProcessInfo) then begin Error := GetLastError; raise eGPSBabelError.CreateFmt( - 'gpsbabel.exe konnte nicht gestartet werden (Fehler %d).', [Error]); + _('Could not run "gpsbabel.exe" (Error %d)!'), [Error]); end; - while (WaitforSingleObject (ProcessInfo.hProcess, 0)) <> WAIT_OBJECT_0 do sleep(100); - if not GetExitCodeProcess(ProcessInfo.hProcess, Error) then Error := 0; if ((Error <> 0) and (Error <> 1)) then - raise eGPSBabelError.CreateFmt('Schade, "gpsbabel.exe" verlies uns mit Fehler 0x%x (%d)', [Error, Error]); + raise eGPSBabelError.CreateFmt(_('"gpsbabel.exe" returned error 0x%x (%d)'), [Error, Error]); s := ''; @@ -207,4 +191,28 @@ procedure RestoreProperties(Instance: TObject; Backup: TStringList); begin end; +procedure FixStaticText(AComponent: TComponent); +var + i, j: Integer; + c: TComponent; + s: TStaticText; +begin + j := AComponent.ComponentCount; + for i := 0 to j - 1 do + begin + c := AComponent.Components[i]; + if (c.ComponentCount > 0) then FixStaticText(c); + + if not c.InheritsFrom(TStaticText) then Continue; + + s := c as TStaticText; + if (s.BorderStyle = sbsNone) then Continue; + + if (s.Alignment = taLeftJustify) then + s.Caption := ' ' + s.Caption + else if (s.Alignment = taRightJustify) then + s.Caption := s.Caption + ' '; + end; +end; + end. -- 2.30.2